home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / graphics / 3dvect30.arj / TGA2ICON.ARJ / STRLTU.RT < prev    next >
Text File  |  1993-01-09  |  652b  |  30 lines
  1. public  _strltu
  2. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  3. ; Make all lower case letters in string uppercase
  4. ; In:
  5. ;   EDX -> string
  6. ; Out:
  7. ;   None
  8. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  9. _strltu:
  10.         push ax
  11.         push edx
  12. strltuml:
  13.         mov al,[edx]
  14.         or al,al
  15.         jz short strltumld
  16.         cmp al,'a'
  17.         jb short strltumlf0
  18.         cmp al,'z'
  19.         ja short strltumlf0
  20.         sub al,'a'-'A'
  21.         mov [edx],al
  22. strltumlf0:
  23.         inc edx
  24.         jmp strltuml
  25. strltumld:
  26.         pop edx
  27.         pop ax
  28.         ret
  29.  
  30.